WaveOutNumOfDevices
(Property)
Purpose: Returns the number of Wave-out devices available.
Syntax: IntVar = CtlName.WaveOutNumOfDevices.
Arguments: None.
Example:
'Fill a ComboBox with Wave-Out devices
Dim
intTemp
As
Integer
For
intTemp
=
0
To
SoundCard1.WaveOutNumOfDevices
____Combo1.AddItem
SoundCard1.WaveOutGetDeviceName (intTemp)
Next intTemp
Comments: WaveOutNumOfDevices is zerobased. Property is Read Only.
See Also:
WaveOutGetDeviceName
WaveInNumOfDevices
WaveInGetDeviceName